Locking a string's value

Public Class Form1

    Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click
        Dim ammount As String = TextBox2.Text
        Try
            WriteInteger("csgo", &H3FB5114, ammount)
            WriteInteger("csgo", &H45045EC, ammount)
            WriteInteger("csgo", &H45049EC, ammount)
            WriteInteger("csgo", &H4504DEC, ammount)
            WriteInteger("csgo", &H45059EC, ammount)
            WriteInteger("csgo", &H45065EC, ammount)
            WriteInteger("csgo", &H45071EC, ammount)
            WriteInteger("csgo", &H233D8404, ammount)
            WriteInteger("csgo", &H23CB18F4, ammount)
            WriteInteger("csgo", &H23CB1FC0, ammount)
        Catch ex As Exception
        End Try
    End Sub


    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
        Dim ammount As String = TextBox1.Text
        Try
            WriteInteger("csgo", &H454458, ammount)
            WriteInteger("csgo", &H4504524, ammount)
            WriteInteger("csgo", &H4504858, ammount)
            WriteInteger("csgo", &H454924, ammount)
            WriteInteger("csgo", &H454C58, ammount)
            WriteInteger("csgo", &H454D24, ammount)
            WriteInteger("csgo", &H4505858, ammount)
            WriteInteger("csgo", &H4505924, ammount)
            WriteInteger("csgo", &H4506458, ammount)
            WriteInteger("csgo", &H4506524, ammount)
            WriteInteger("csgo", &H4507058, ammount)
            WriteInteger("csgo", &H4507124, ammount)
            WriteInteger("csgo", &H9B5760C, ammount)
            WriteInteger("csgo", &H9F9DF58, ammount)
            WriteInteger("csgo", &H233D7EC4, ammount)
            WriteInteger("csgo", &H23CB091C, ammount)
            WriteInteger("csgo", &H23CB7D08, ammount)
            WriteInteger("csgo", &H47BF8C08, ammount)
            WriteInteger("csgo", &H482BEE6C, ammount)
        Catch ex As Exception


        End Try
    End Sub


    Private Sub LinkLabel1_LinkClicked(sender As Object, e As LinkLabelLinkClickedEventArgs) Handles LinkLabel1.LinkClicked
        System.Diagnostics.Process.Start("http://www.mpgh.net")
    End Sub


    Private Sub Button3_Click(sender As Object, e As EventArgs) Handles Button3.Click


    End Sub


    Private Sub Button4_Click(sender As Object, e As EventArgs) Handles Button4.Click


    End Sub
End Class