[RESOLVED] (string manipulation) grabbing three characters from this link..

[erbio]

http://myssite.com/BNV/1/007/
http://myssite.com/NYT/1/008/
http://myssite.com/IMH/1/017/
http://myssite.com/HNG/1/051/
http://myssite.com/ABD/1/047/
http://myssite.com/ERR/1/202/
http://myssite.com/VFG/1/017/


How would I just retrieve "IMG" from the above link? I just want the three letters. The link format stays the same...

Ive tried several Mid, Left and Right but I'm doing something wrong.

Thanks!

[DigiRev]

Is this what you mean?

Option Explicit
 
Private Function Get3Letters(URL As String) As String
    Dim lonPos As Long, lonEnd As Long
    
    'Find .com/
    lonPos = InStr(1, URL, ".com/", vbTextCompare)
    
    If lonPos > 0 Then
        'find next /
        lonPos = lonPos + 5
        
        lonEnd = InStr(lonPos, URL, "/")
        
        If lonEnd > 0 Then
            Get3Letters = Mid$(URL, lonPos, (lonEnd - lonPos))
        End If
        
    End If
    
End Function
 
 
'Test the function.
Private Sub Form_Load()
    'http://myssite.com/VFG/1/017/
    Dim strTest As String
    
    strTest = "http://myssite.com/VFG/1/017/"
    
    MsgBox Get3Letters(strTest)
End Sub

[erbio]

You are awesome and that was quick!

Would you happen to have code to output a random number 10 - 50?

Thank you thank you thank you!