subasatran > 04-11-18, 12:47 PM
Public Function ConvertNumberToText(ByVal txtnumber As String) As String
[/color]
If IsNumeric(Val(txtnumber)) = True Then
ConvertNumberToText = Format(CStr(txtnumber), "00000000")
Else
ConvertNumberToText = CStr(txtnumber)
End If
[color=#141414]End Function