Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
 Dim MyStr As String, Password as String
 MyStr = InputBox("請輸入你的姓名", "請問大名", "無名氏")
 Password=InputBox(MyStr + "先生小姐你好，請輸入密碼", "輸入密碼", "")

 If Password="iloveu" then   'If then else endif 結構

 Msgbox=("歡迎使用BMI計算器")

 '此處置入BMI計算器程式碼

 Else

 Msgbox=("抱歉！密碼錯誤")

 End if

End Sub