Extracting Strings From A Single Dynamic String

[Ark68]

I have a string value that takes the form of ###/###.
I am looking for VBA code suggestions to isolate the numbers (as text) preceding the "/" and proceeding the "/", and then convert each to true numbers.
Both numeric values will be whole numbers, and could be of any length (value) from 1 - x digits.

Can anyone offer up a solution?

I have determined the position of the "/", and the length of the string (respectively) with this code:

spos = InStr(.Cells(srw, cl), "/")
slen = Len(.Cells(srw, cl))

Example 1:
string (from .cells(row,col)) = "32/3"
spos = 3
slen = 4
fwdnum = 32
bcknum = 3

Example 2:
string (from .cells(row,col)) = "1091/155"
spos = 5
slen = 8
fwdnum = 1091
bcknum = 155

 

[Eric W]

Perhaps:

Sub SplitString()
Dim fwdnum As Long, bcknum As Long, str1 As String

    str1 = "12345/678"
 
    fwdnum = Left(str1, InStr(str1 & "/", "/") - 1)
    bcknum = Mid(str1, Len(fwdnum & "") + 2)

End Sub

 

[steve the fish]

Like this?

Sub test()

Dim str As String, fwdnum As Long, bcknum As Long

str = "123/456"

fwdnum = Split(str, "/")(0)
bcknum = Split(str, "/")(1)

MsgBox fwdnum
MsgBox bcknum

End Sub

 

[Ark68]

Thank you both! Each one appears to be providing the results I'm needing!

 

[Eric W]

Glad we could help! Thanks for the feedback.