option Explicit
Public Function FormatNum(dblDataInput As Double, strFormat As String)
  FormatNum = format(dblDataInput, strFormat)
End Function
Public Function FormatStr(strDataInput As String, strFormat As String)
  FormatStr = format(strDataInput, strFormat)
End Function
Public Function FormatDate(dteDataInput As Date, strFormat As String)
  FormatDate = format(dteDataInput, strFormat)
End Function
