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

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!

Is this what you mean?

VB Code:

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

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!