Código: Seleccionar todo
'___________________________________________________________________
'Function OtherString
'Coded By The Swash at 23/12/2009 //Thx DARK_J4V13R
'Contact: [email protected]
'www.Indetectables.Net
'___________________________________________________________________
Public Function OtherString(Number As Integer, Character As String)
For i = 1 To Number
OtherString = CStr(Mid(Character & OtherString, 1, i))
Next i
End Function