HelpFOV changer VB.net

Public Function WriteFloat(ByVal P As Process, ByVal memAdr As Int32, ByVal value As Single) As Boolean
        Return WriteBytes(P, memAdr, BitConverter.GetBytes(value), 4)
    End Function

Private Sub Button4_Click_3(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles fov_button.Click
        Dim a As Single = fovtb.Text //"FoVTextbox.text"//
        Dim p As Process = Nothing
        If Process.GetProcessesByName("iw5mp").Count > 0 Then
            p = Process.GetProcessesByName("iw5mp")(0)
        Else
            Exit Sub
        End If
        Dim Adr As Int32 = &H5AC11E0
        Try
            If WriteFloat(p, Adr, a) Then
            Else
            End If
        Catch ex As Exception
            MessageBox.Show("Writing memory failed: " & vbCrLf & ex.Message, "Error", MessageBoxButtons.OK, MessageBoxIcon.Warning)
        End Try
    End Sub

Public Class Form1
    Dim gteuk As New Class1

    Dim FOVAD As Integer = &H5AC11E0
   

    Private WithEvents Timer1 As System.Windows.Forms.Timer
    Private Sub Form1_Load(sender As System.Object, e As System.EventArgs) Handles MyBase.Load
        Timer1 = New System.Windows.Forms.Timer
        Timer1.Interval = 5000
    End Sub

    Public Sub Timer1_Tick(ByVal sender As Object, ByVal e As System.EventArgs) Handles Timer1.Tick
        If gteuk.Process_Handle("iw5mp") Then
            Dim fov1 As Single = (TextBox1.Text)
            gteuk.WriteBytes(FOVAD, BitConverter.GetBytes(fov1))

        End If
    End Sub
    Private Sub Button3_Click(sender As System.Object, e As System.EventArgs) Handles Button3.Click
        If gteuk.Process_Handle("iw5mp") Then
            If IsNumeric(TextBox1.Text) Then
                Timer1.Enabled = True

            Else
                MessageBox.Show("Must use numeric value")
            End If
        Else
            MessageBox.Show("MW3 Is not Running")
        End If

    End Sub

End Class