Thank you for the quick response!
Ok, so now the code looks like...
VB Code:
Public Sub GETCHOICES()
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
For intPos = 0 To 3
ChoicesLBL(intPos).Caption = Trim$(sQuestions(intPos))
Next
End Sub
And the example question look like...
How many provinces are there in Canada? 5, 10, 13, 15 *10
However, I think I made a mistake somewhere, I keep getting an ("invalid procedure call or argument") error on this line..
VB Code:
sQuestions = Split(Trim$(Left$(strQ, intPos - 1)), ",")
I am not sure why that is a problem?
Reply With Quote