Visual Basic - Ayuda con función

Hola no se nada de vb, soy programadora en delphi y estoy tratando de hacer una función en visual basic que me diga si un número es primo o no... Tengo lo siguiente, pero me da error. AYUDENME PLEASE

Function EsPrimo(numero As Integer) As Boolean
Dim x As Integer
Dim maxX As Integer

Result = True
maxX = i - 1
For x = 2 To maxX
If i Mod x = 0 Then

Result = False
Break
End If

Private Sub CommandButton1_Click()
if EsPrimo (TextBox1.Text) = true then
Showmessage(Es un numero primo)


De antemano gracias...

End Sub

Ese no es problema de programación, es problema de lógica.
Y si resuelves un problema de lógica entonces lo puedes aplicar a cualquier lenguaje de programación... basic, gwbasic, turbobasic, picbasic, visualbasic, visualbasic.net, java, delphi, debase, etc...
Recuerda que un número es primo solo si es divisible entre 1 y entre sí mismo.
O sea que en tu programa debes tomar ese numero y dividirlo primero entre 2, luego entre 3, luego entre 4 y así hasta nueve. Si el resultado con alguno de esos divisores (2,3,4,...9) te da un número fraccionario (o sea que no es número entero) entonces..... ése NO es número primo, ELSE sí es primo!!! Y listo, tu problema resuelto.