Converting Photo Upload Into Hyperlink

[DMT Dave]

Hi Guy's this has done the trick, only done the first 2 so will do the other 4 later but just thought i would show the result after tidying it.

PS: thank you all again for your input, I like Colin's idea to populate a list, just don't have the form space so this works a treat

Dim str1() As String, str2() As String, str3() As String, str4() As String, str5() As String, str6() As StringDim strMailMessage As String, img1 As String, img2 As String
Dim intA As Integer, intB As Integer


strMailMessage = Me.txtMailMessage


str1 = Split(strMailMessage, vbCrLf)
For intA = 0 To UBound(str1)
    If InStr(1, str1(intA), "Photo Upload 1: Open File <") > 0 Then
    imgA = Replace(Mid(str1(intA), 28), ">", "")
    Me.txtImageA = imgA
    Me.cmdImgA.Visible = True
End If
Next intA


str2 = Split(strMailMessage, vbCrLf)
For intB = 0 To UBound(str2)
    If InStr(1, str2(intB), "Photo Upload 2: Open File <") > 0 Then
    imgB = Replace(Mid(str2(intB), 28), ">", "")
    Me.txtImageB = imgB
    Me.cmdImgB.Visible = True
    End If
Next intB

[moke123]

"Photo Upload 1: Open File " https etc
"Photo Upload 2: Open File " https etc
"Photo Upload 3
"Photo Upload 4
"Photo Upload 5
"Photo Upload 6

Just a thought,

Given your initial sample data I would test for "http" in your Instr(). That would indicate that there is a URL and the others can be disregarded.
This would allow you do to the parsing in one swoop.