Dim Num As String * 256
MsgBox LenB(Num)