Question about Source Code

Dim Weapons As Integer = &H1DC02C0 'Steam-Address (1.9.461)
Dim UAV As Integer = &H1D08864 'Steam-Address (1.9.461)

Dim allWeaponsMaxBytes As Byte() = _
{&HB0, &H36, &H0, &H0, &HB0, &H36, &H0, &H0, &HB0, &H36, &H0, &H0, &HB0, &H36, &H0, &H0, &HB0, &H36, &H0, &H0, &HB0, &H36, &H0, &H0, &H91, &HBD, &H2, &H0, &H91, &HBD, &H2, &H0, &H91, &HBD, &H2, &H0, &H91, &HBD, &H2, &H0, &H91, &HBD, &H2, &H0, &H91, &HBD, &H2, &H0, &H91, &HBD, &H2, &H0, &H91, &HBD, &H2, &H0, &H91, &HBD, &H2, &H0, &H91, &HBD, &H2, &H0, &H91, &HBD, &H2, &H0, &H91, &HBD, &H2, &H0, &H91, &HBD, &H2, &H0, &H91, &HBD, &H2, &H0, &H91, &HBD, &H2, &H0, &H91, &HBD, &H2, &H0, &HB0, &H36, &H0, &H0, &HB0, &H36, &H0, &H0, &HB0, &H36, &H0, &H0, &HB0, &H36, &H0, &H0, &H0, &H0, &H0, &H0, &H91, &HBD, &H2, &H0, &H91, &HBD, &H2, &H0, &H91, &HBD, &H2, &H0, &H91, &HBD, &H2, &H0, &H91, &HBD, &H2, &H0, &H91, &HBD, &H2, &H0, &H91, &HBD, &H2, &H0, &H91, &HBD, &H2, &H0, &H91, &HBD, &H2, &H0, &H91, &HBD, &H2, &H0, &H91, &HBD, &H2, &H0, &H91, &HBD, &H2, &H0, &H91, &HBD, &H2, &H0, &H91, &HBD, &H2, &H0, &H91, &HBD, &H2, &H0, &H91, &HBD, &H2, &H0, &H91, &HBD, &H2, &H0, &H0, &H0, &H0, &H0, &HB0, &H36, &H0, &H0, &H0, &H0, &H0, &H0, &H0, &H0, &H0, &H0, &H0, &H0, &H0, &H0, &H0, &H0, &H0, &H0, &H0, &H0, &H0, &H0, &H0, &H0, &H0, &H0, &HB0, &H36, &H0, &H0, &HB0, &H36, &H0, &H0, &HB0, &H36, &H0, &H0, &HB0, &H36, &H0, &H0, &H0, &H0, &H0, &H0, &H0, &H0, &H0, &H0, &H0, &H0, &H0, &H0, &H0, &H0, &H0, &H0, &H0, &H0, &H0, &H0, &H0, &H0, &H0, &H0, &H91, &HBD, &H2, &H0, &H0, &H0, &H0, &H0, &H0, &H0, &H0, &H0, &HB0, &H36, &H0, &H0} 'All Weapons on Max. Level (31 on Primary & 10 on Secondary)

    Private Sub Button1_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles Button1.Click
        If .Process_Handle("Process") Then
            .Hack("Process")
            .SetByte/.WriteBytes(Weapons, allWeaponsMaxBytes)
        Else
            MsgBox("Game is not running." + vbLf + _
                   "Start GameName/GameProcess before you try to hack.", _
            MsgBoxStyle.Information, "Warning!")
        End If
    End Sub

    Private Sub Timer1_Tick(ByVal sender As Object, ByVal e As System.EventArgs) Handles Timer1.Tick 
    'Set Timer.Interval to 10000-30000 - I think this is enough
        If .Process_Handle("Process") Then
            .Hack("Process") 'I don't know if this is required for WriteFloat
            .WriteFloat(UAV, 2) 'I think it was 2 - I have test it before some Weeks, so I think 2 is right
    End Sub

    Public Sub WriteFloat(ByVal Address As Integer, ByVal Value As Single)
        Dim Buffer As Byte() = BitConverter.GetBytes(Value)
        Dim Zero As IntPtr = IntPtr.Zero
        WriteProcessMemory(pHandel, New IntPtr(Address), Buffer, UInt32.Parse(Buffer.Length), Zero)
    End Sub