You better use Val(Textbox1.Text) or a NumericUpDown.Code:Private Sub Button2_Click() Handles Button2.Click string1 = readdll("cshell.dll") string2 = "&H" + Hex(string1 + &HCC19920) Call YGLTYADCXJ(string2, Textbox1.Text, 4) End Sub
Code:Call YGLTYADCXJ(string2, Val(Textbox1.Text), 4)Code:Call YGLTYADCXJ(string2, NumericUpDown1.Value, 4)