title image


Smiley Ja, so !
Private Sub Command1_Click()MsgBox GetNumeric("jh23jh45")End SubPrivate Function GetNumeric(strText As String) As StringDim intX As IntegerGetNumeric = ""For intX = 1 To Len(strText)If IsNumeric(Mid(strText, intX, 1)) Then GetNumeric = GetNumeric & CStr(Mid(strText, intX, 1))NextEnd FunctionMfG Viagrababy

geschrieben von

Login

E-Mail:
  

Passwort:
  

Beitrag anfügen

Symbol:
 
 
 
 
 
 
 
 
 
 
 
 
 

Überschrift: