Formuláře vlastní													
http://JakNaExcel.cz/													
													
Potřebujeme vytvořit například takovýto formulář:										zobraz			
										    UserForm1.Show			
													
													
										zavři			
										    UserForm1.Hide			
										    ' zavře form			
													
													
										 dalo by se kontrolovat zda je číslo > 0 atd			
													
													
										hodnota = UserForm1.TextBox1.Value * UserForm1.TextBox2.Value			
										MsgBox (hodnota)			
Klikem na tlačítko se spustí!										' Můžeme text box ještě vylepšit			
										"MsgBox (""Plocha obdelníků je: "" & hodnota)"			
													
													
													
										Při změna hodnoty v text boxu			
										If IsNumeric(UserForm1.TextBox1.Value) Then			
										"    MsgBox (""Je číslo."")"			
										    ' nebbude se nic dělat			
										    ' kontrola zda je číslo > než 0 (nula)			
										Else			
										"    MsgBox (""Není číslo."")"			
										    'smazat údaj			
										End If			
										    			
										Smazat údaj			
										"    UserForm1.TextBox2.Value = """""			
													
													
										If IsNumeric(UserForm1.TextBox2.Value) Then			
										    ' kontrola zda je číslo > než 0 (nula)			
										    			
										Else			
										    'info 			
										"    MsgBox (""Není číslo."")"			
										    'a smažeme údaj			
										"    UserForm1.TextBox2.Value = """""			
										End If			
													
										číslo nula			
										    If UserForm1.TextBox1.Value = 0 Then			
										"        MsgBox (""číslo rovno nula"")"			
										"        UserForm1.TextBox1.Value = """""			
										    Else			
										        ' nic			
										    End If			
													
													
										Vypočítat obdelník			
										hodnota = UserForm1.TextBox1.Value * UserForm1.TextBox2.Value			
													
													
										"MsgBox (""Plocha: "" & hodnota)"