Xuân Thanh > 23-12-13, 06:32 PM
Function SplitNumberString(strMyString As String) As String
Dim strResults As String, strTemp As String
Dim i As Integer
For i = 1 To Len(strMyString)
strTemp = Mid(strMyString, i, 1)
If IsNumeric(strTemp) = True Then
strResults = strResults & strTemp
End If
Next
SplitNumberString = strResults
End Function
Function SplitNumber(strMyString As String) As Long
Dim strResults As String, strTemp As String
Dim i As Integer
For i = 1 To Len(strMyString)
strTemp = Mid(strMyString, i, 1)
If IsNumeric(strTemp) = True Then
strResults = strResults & strTemp
End If
Next
SplitNumber = Val(strResults)
End Function