求幫忙編寫一個VB if-then 程序!

題目：

求幫忙編寫一個VB if-then 程序!
金星 木星 土星 海王星 Jupiter,Saturn ,Venus ,Neptune
光從太陽到金星用161.5 分鐘
用下列信息完成程序
木星距離太陽4.8億英里
土星距離太陽9億英里
金星距離太陽18億英里
海王星距離太陽28億英里
光速每秒186282英里
時間（以秒爲單位）等於路程除以186282
計算光到每個星球的時間,答案要求以分鐘爲單位
輸入數據（INPUT DATA）：每個星球的數值
一個textbox（txbplanet）一個lable（lbltime） 一個按鈕（btnstart）

解答：

Private Sub btnstart_Click()
'按要求寫了If-Then語句,不過個人認爲Select-Case比較適合這個.
If Me.txbplanet.Text = "Jupiter" Then
'Format格式化結果,保留2位小數.
Me.lbltime.Caption = "光從太陽到金星的時間爲：" & Format((1800000000 / 186282) / 60, "##.##") & "分鐘"
ElseIf Me.txbplanet.Text = "Saturn" Then
Me.lbltime.Caption = "光從太陽到木星的時間爲：" & Format((480000000 / 186282) / 60, "##.##") & "分鐘"
ElseIf Me.txbplanet.Text = "Venus" Then
Me.lbltime.Caption = "光從太陽到土星的時間爲：" & Format((900000000 / 186282) / 60, "##.##") & "分鐘"
ElseIf Me.txbplanet.Text = "Neptune" Then
Me.lbltime.Caption = "光從太陽到海王星的時間爲：" & Format((2800000000# / 186282) / 60, "##.##") & "分鐘"
Else
MsgBox "請輸入正確信息!", 64, "提示"
End If
End Sub


希望能幫到你.