Dim sngInput1 As Single
        Dim sngInput2 As Single
        Dim sngInput3 As Single
        Dim sngInput4 As Single
        Dim sngCubic As Single

        sngInput1 = Val(Me.txtInput1.Text)
        sngInput2 = Val(Me.txtInput2.Text)
        sngInput3 = Val(Me.txtInput3.Text)
        sngInput4 = Val(Me.txtInput4.Text)

        sngCubic = sngInput2 * sngInput3 * sngInput4

        If (sngInput1 > 27) And (sngCubic > 100000) Then
            Me.lblOutput.Text = "Package Too heavy and Too large"
        ElseIf sngInput1 > 27 Then
            Me.lblOutput.Text = "Package Too heavy"
        ElseIf sngCubic > 100000 Then
            Me.lblOutput.Text = "Package Too large"
        Else
            Me.lblOutput.Text = "Package accepted"

        End If
    End Sub