MMS via Command line VBscript

---

quote:

'function to test if the phone number is a valid format
Function isValidPhoneNumber(theStr)

LenString = Len(theStr)
isValid = True

for i = 1 to LenString
midStr = Mid(theStr, i, 1)
if (i > 1) Then
prevChar = Mid(theStr, i-1, 1)
End if
if (midStr = "+") AND ((i = 1) OR (prevChar =",")) Then
elseif (midStr = "0") OR (midStr = "1") OR (midStr = "2") OR (midStr = "3") OR (midStr = "4") OR (midStr = "5") OR (midStr = "6") OR (midStr = "7") OR (midStr = "8") OR (midStr = "9") OR (midStr = ",") Then
else
isValid = False
End if
Next
isValidPhoneNumber = isValid

End Function

---