dim str as string dim dec as longstr = "11" dec = clng(str)
Sub Macro1() Dim text As String Dim number As Integertext = "11" 'full size charactor letter text = Application.Clean(text) 'edit text into full size charactor letter number = CLng(text) 'edit full size charactor into numberEnd Sub
dim i as long
s="123"
i=val(s)
dim t as long
s="11"
t=val(s)
dim str as string
dim dec as longstr = "11"
dec = clng(str)
Dim text As String
Dim number As Integertext = "11" 'full size charactor letter
text = Application.Clean(text) 'edit text into full size charactor letter
number = CLng(text) 'edit full size charactor into numberEnd Sub