新手的问题:为什么总提示未找到方法或数据成员?

第一次写程序，结果乱七八糟，总提示“未找到方法或数据成员”
Private Sub Command1_Click()
    Dim RZCLF!, JGTotal!, RZTotal!
    'RZCLF= RE ZHA CAILIAOFEI,JGTotal = JIA GONG CAILIAOFEI ,RZTotal =热轧总费用
    '
    Dim LBCLF!, LBFT!, LBTotal!
    'LBCLF = 冷拔材料费，LBFT = 冷拔费，LBTotal = 冷拔总费用
    '
    Dim r1!, r2!, r3!, r4!, L!, m1!, m3!
    'r1 = 缸筒外径；r = 缸筒内径；L = 缸筒长度;m = 质量（Kg）
    Dim CTgongshi!
    Dim ChaJia!
    
    Const PI As Double = 3.1415926
    Const RO As Double = 7.85
    
    Const XZgongshi As Single = 5 / 60
    Const XZdianzhi As Single = 21
    Const CTdianzhi As Single = 14
    Const Qgongshi As Single = 4 / 60
    Const Qdianzhi As Single = 5
    Const DJgongshi As Single = 10 / 60
    Const DJdianzhi As Single = 12
    Const TZdianzhi As Single = 0.6
    Const PWdianzhi As Single = 0.25
    
    Const LBF As Single = 1.8 '元/Kg
    Const YF As Single = 0.6 '元/Kg
    Const QTF As Single = 0.42 '元/Kg
    
    Const x As Single = 8.8
    
       
    If Combo1 = φ63 Or Combo1 = φ80 Then
        L = txtInput.Text1
        Select Case CTgongshi
            Case 300 < L < 400
                CTgongshi = 20 / 60
            Case 400 < L < 500
                CTgongshi = 25 / 60
            Case 500 < L < 650
                CTgongshi = 30 / 60
            Case 650 < L < 800
                CTgongshi = 35 / 60
            Case 800 < L < 950
                CTgongshi = 45 / 60
            Case 950 < L < 1150
                CTgongshi = 50 / 60
            Case 1150 < L < 1400
                CTgongshi = 55 / 60
            Case Else
                MsgBox "(*^__^*) 输入数据有误，请重新输入！"
        End Select
    End If
    If Combo1 = φ100 Then
        L = txtInput.Text1
        Select Case CTgongshi
            Case 300 < L < 400
                CTgongshi = 20 / 60
            Case 400 < L < 500
                CTgongshi = 25 / 60
            Case 500 < L < 650
                CTgongshi = 30 / 60
            Case 650 < L < 800
                CTgongshi = 40 / 60
            Case 800 < L < 950
                CTgongshi = 45 / 60
            Case 950 < L < 1150
                CTgongshi = 50 / 60
            Case 1150 < L < 1400
                CTgongshi = 55 / 60
            Case 1400 < L < 1650
                CTgongshi = 60 / 60
            Case 1650 < L < 2000
                CTgongshi = 70 / 60
            Case Else
                MsgBox "(*^__^*) 输入数据有误，请重新输入！"
        End Select
    End If
    If Combo1 = φ63 Then
        r1 = 83 / 2
        r2 = 57 / 2
        r3 = 82 / 2
        r4 = 62 / 2
        'm1 = PI * RO * L * (r1 ^ 2 - r2 ^ 2)
        'm2 = PI * RO * L * (r3 ^ 2 - r4 ^ 2)
        'RZCLF = m1 * x
        'JGTotal = XZgongshi * XZdianzhi + CTgongshi * CTdianzhi + Qgongshi * Qdianzhi + DJgongshi * DJdianzhi + m * TZdainzhi + m * PWdianzhi
        'RZTotal = JGTotal + RZTotal
    
        'LBCLF = m2 * x
        'LBFT = m2 * (LBF + YF + QTF)
        'LBTotal = LBCLF + LBFT
    
        'ChaJia = RZTotal + LBTotal
        ElseIf Combo1 = φ80 Then
            r1 = 102 / 2
            r2 = 74 / 2
            r3 = 101 / 2
            r4 = 79 / 2
         '   m1 = PI * RO * L * (r1 ^ 2 - r2 ^ 2)
          '  m2 = PI * RO * L * (r3 ^ 2 - r4 ^ 2)
           ' RZCLF = m1 * x
            'JGTotal = XZgongshi * XZdianzhi + CTgongshi * CTdianzhi + Qgongshi * Qdianzhi + DJgongshi * DJdianzhi + m * TZdainzhi + m * PWdianzhi
    '        RZTotal = JGTotal + RZTotal
    '
     '       LBCLF = m2 * x
      '      LBFT = m2 * (LBF + YF + QTF)
       '     LBTotal = LBCLF + LBFT
    '
     '       ChaJia = RZTotal + LBTotal
            ElseIf Combo1 = φ100 Then
                r1 = 127 / 2
                r2 = 93 / 2
                r3 = 126 / 2
                r4 = 99 / 2
      '          m1 = PI * RO * L * (r1 ^ 2 - r2 ^ 2)
       '         m2 = PI * RO * L * (r3 ^ 2 - r4 ^ 2)
        '        RZCLF = m1 * x
         '       JGTotal = XZgongshi * XZdianzhi + CTgongshi * CTdianzhi + Qgongshi * Qdianzhi + DJgongshi * DJdianzhi + m * TZdainzhi + m * PWdianzhi
          '      RZTotal = JGTotal + RZTotal
    '
     '           LBCLF = m2 * x
      '          LBFT = m2 * (LBF + YF + QTF)
       '         LBTotal = LBCLF + LBFT
    '
     '           ChaJia = RZTotal + LBTotal
    End If
        
    
        
    m1 = PI * RO * L * (r1 ^ 2 - r2 ^ 2)
    m2 = PI * RO * L * (r3 ^ 2 - r4 ^ 2)
  '
    RZCLF = m1 * x
    JGTotal = XZgongshi * XZdianzhi + CTgongshi * CTdianzhi + Qgongshi * Qdianzhi + DJgongshi * DJdianzhi + m * TZdianzhi + m * PWdianzhi
    RZTotal = JGTotal + RZTotal
    
    LBCLF = m2 * x
    LBFT = m2 * (LBF + YF + QTF)
    LBTotal = LBCLF + LBFT
  
    ChaJia = RZTotal - LBTotal
    Text2.Caption = RZTotal - LBTotal = XZgongshi * XZdianzhi + CTgongshi * CTdianzhi + Qgongshi * Qdianzhi + DJgongshi * DJdianzhi + m * TZdianzhi + m * PWdianzhi + m1 * x - m2 * (LBF + YF + QTF) - m2 * x
    
    
End Sub