Function SubStr( St As String) As String Sum=1 for x=1 to 8 if x mod 2 =
Fantastic news! We've Found the answer you've been seeking!
Question:
Function SubStr( St As String) As String Sum=1 for x=1 to 8 if x mod 2 = 1 then S=Mid(St, x, x*2) Else S=Mid(St, x, x+2) End if Next x SubStr=S End Function Sub Cmd_Click() Label.text= SubStr("Phones:987456124123456744") End Sub
987456124 :
9874561241
9874561241
98745612412
Posted Date: