function should return number 41 from string:
"vivaldi - 4 - seasons - movement/1"

Maybe:

Sub GetIt()
Dim str As String
str = "vivaldi - 4 - seasons - movement/1"
MsgBox num(str)

End Sub

Function num(inpt As String)
Dim i As Integer
For i = 1 To Len(inpt)
If IsNumeric(Mid(inpt, i, 1)) Then
num = num & Mid(inpt, i, 1)
End If
Next i
num = CLng(num)
End Function

Regards
Rowan

serdar wrote:
function should return number 41 from string:
"vivaldi - 4 - seasons - movement/1"

thanks for ur effort to code the entire function. seems u r real fast and
pro. just IsNumeric( ) would be enough also but u spend ur time to write
all.

well, i am assuming IsNumeric( ) crops only 1234567890



"Rowan Drummond" , haber iletisinde sunlari
...
Maybe:

Sub GetIt()
Dim str As String
str = "vivaldi - 4 - seasons - movement/1"
MsgBox num(str)

End Sub

Function num(inpt As String)
Dim i As Integer
For i = 1 To Len(inpt)
If IsNumeric(Mid(inpt, i, 1)) Then
num = num & Mid(inpt, i, 1)
End If
Next i
num = CLng(num)
End Function

Regards
Rowan

serdar wrote:
function should return number 41 from string:
"vivaldi - 4 - seasons - movement/1"

IsNumeric returns true or false based on the input so:
? isnumeric(5) True
? isnumeric("b") False
The function does the cropping based on these results for each character
in the string.

Regards
Rowan

serdar wrote:
thanks for ur effort to code the entire function. seems u r real fast and
pro. just IsNumeric( ) would be enough also but u spend ur time to write
all.

well, i am assuming IsNumeric( ) crops only 1234567890



"Rowan Drummond" , haber iletisinde sunlari
...

Maybe:

Sub GetIt()
Dim str As String
str = "vivaldi - 4 - seasons - movement/1"
MsgBox num(str)

End Sub

Function num(inpt As String)
Dim i As Integer
For i = 1 To Len(inpt)
If IsNumeric(Mid(inpt, i, 1)) Then
num = num & Mid(inpt, i, 1)
End If
Next i
num = CLng(num)
End Function

Regards
Rowan

serdar wrote:

function should return number 41 from string:
"vivaldi - 4 - seasons - movement/1"