Public Class Form1
Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
Dim ammount As String = TextBox1.Text
Try
WriteInteger("t6zm", &H021C1568, ammount)
Catch ex As Exception
End Try
End Sub