[RESOLVED] Cutting off part of a label caption for a multiple choice question game.

[LaVolpe]

You can use Split()

Dim sQuestions() As String
Dim intPos As Integer
Dim strQ As String

    intPos = InStr(PickLBL.Caption, "?")     ' Locate the position of the "?" in PickLBL.Caption
    strQ = Mid$(PickLBL.Caption, 1, intPos - 1)  

    intPos = InStrRev(strQ,"*")
    RightANS.Caption = Mid$(strQ, intPos+1)

    sQuestions() = Split(Trim$(Left$(strQ, intPos-1)), ",")

' now you can loop 0 to 3 to get the 4 individual questions and display them individually how you'd like

Edited: Misread your original description. The answer is not preceded with a comma, so the above would need to be tweaked... updated