Craig92604
Well-known Member
- Joined
- Nov 7, 2002
- Messages
- 505
Anyone explain what this macro does?
Function remchar(myStr As String) As Double
Dim b() As Byte, i As Long, myNum As String
b = StrConv(myStr, vbFromUnicode)
For i = LBound(b) To UBound(b)
Select Case ChrW$(b(i))
Case 0 To 9, "."
myNum = myNum & ChrW$(b(i))
End Select
Next
remchar = myNum ^ 1
End Function
Function remchar(myStr As String) As Double
Dim b() As Byte, i As Long, myNum As String
b = StrConv(myStr, vbFromUnicode)
For i = LBound(b) To UBound(b)
Select Case ChrW$(b(i))
Case 0 To 9, "."
myNum = myNum & ChrW$(b(i))
End Select
Next
remchar = myNum ^ 1
End Function