新人报道与求解

新人报道
请问一下这个问题怎么解决
Private Sub Form_Click()
Dim n, s As String
Dim h, w As Single
n = InputBox("输入姓名", "输入数据")
s = InputBox("输入性别", "输入数据")
h = InputBox("请输入身高数据 (单位: 厘米)", "输入数据")
If s = "男" Then
w = (h - 80) * 0.7
Print n; "同学", s
Print n; "你的标准体重应该为"; w; "公斤"
Else
w = (h - 70) * 0.6
Print n; "同学", s
Print "你的标准体重应该为"; w:"公斤"
End If
End Sub

之后弹出“语法错误”