[RESOLVED] Script Problem

[Garrett19212]

Option Explicit
 
Private Sub Command1_Click()
Dim n As Integer
Dim i As Integer
word() = Split(Text1.Text, " ")
n = UBound(word) + 1
Label1.Caption = n
For i = 1 To n
Spell word(i), i
Next
Text1.Text = ""
Text1.Text = word(1)
For i = 2 To n
Text1.Text = Text1.Text & " " & word(i)
Next
End Sub

Option Explicit
Public word() As String
Function Spell(w As String, z As Integer) As String
If w = "like" Then
word(z) = "lke"
End If
End Function

Spell word(i), i

Thats the error.

The program is suppose to be like a spell checker.