End Sub
Sub kuk()
Load UserForm1
UserForm1.Show
End Sub
Sub kwk()
Load UserForm2
UserForm2.TextBox1.Text = Range("b2").value
If Range("e4").value <> 0 Then
UserForm2.TextBox2.Text = Range("e4").value
Else
UserForm2.TextBox2.Text = "0.05"
End If
UserForm2.TextBox8.Text = Range("b3").value
UserForm2.Show
End Sub