SIMPLE: For spanish, Crossword, Help, EASY, IM stupid! Help, Take 2 secs! Due Friday!

[spyplayer]

Ok I am making a crossword for spanish for extra credit, to get my A+ and so I asked her If I could make it a computer program, I want the user to be able to type the answer in the answer box and then have the letters go into the txt boxes,
(i.e. 25. Hace calor) then press enter and it will type the letters in for you..... This is what I have,

Private Sub Cmd_Answer_Click()
If Txt_answer = "50. Nick Chamberlin" Then
MsgBox "No you fool! Don't type the example!"
End If

CODE:

If Txt_answer = "1. Hace Calor" Then
HaceCalor(0).Text = "H" And HaceCalor(1).Text = "a" And HaceCalor(2).Text = "c" And HaceCalor(3).Text = "e" And HaceCalor(4).Text = " " And HaceCalor(5).Text = "C" And HaceCalor(6).Text = "a" And HaceCalor(7).Text = "l" And HaceCalor(8).Text = "o" And HaceCalor(9).Text = "r"
End
End If
End Sub

And it keeps on highlighting the haceCalor(0-9) statements, it says something like mismatch.... WHAT THE HECK?!?!?! Please help, I need an answer as soon as possible, It is probably soooo easy, Im just very incompitant! THANKS!

[Jim Davis]

Dim X as Long
Dim MyArray() As String
 
If Txt_answer = "1. Hace Calor" Then 
 
'Just skip the numeric from the start of the string:
X = Instr(Txt_answer," ")
Txt_answer = Mid$(Txt_answer,X+1)
 
'then split the chars into the array
 
 
Redim MyArray(Len(Txt_answer))
 
For X = 1 to Len(Txt_answer)
 MyArray(X) = Mid$(Txt_answer,x,1)
Next X