We value your feedback.
Take our survey and automatically be enter to win anyone of the following:
Yeti Cooler, Amazon eGift Card, and Movie eGift Card!
Public Function NewSwap(strMemberID As String) As String Dim i As Integer Dim x As Integer Dim strOutput As String Dim arrOutput As Variant For i = 1 To Len(strMemberID) strOutput = strOutput & Mid$(strMemberID, i, 1) & IIf(i <> Len(strMemberID), ",", "") Next arrOutput = Split(strOutput, ",") For x = LBound(arrOutput) To UBound(arrOutput) Debug.Print arrOutput(x) Next End Function
Join the community of 500,000 technology professionals and ask your questions.