Dim NumberList() As String
Dim NumbersString As String
*/ repeated several times to build up string of numbers. no comma at end /*
If NumbersString Like "" Then NumbersString = Left(Replace((rs![Mobile No]), " ", ""), 11) Else NumbersString = NumbersString & "," & Left(Replace((rs![Mobile No])...