Dim intNumber1 As Integer
Dim intNumber2 As Integer

Sub main()
    intNumber1 = 10
    intNumber2 = 10
    
    If intNumber1 = intNumber2 Or intNumber2 < 50 Then
        MsgBox "The condition is true."
        intNumber2 = intNumber2 + 10
        If intNumber2 > 15 Then
            MsgBox "This condition is also true."
        End If
    End If
End Sub




Dim intCost As Integer
Dim intTubeLength As Integer
Dim intSegments As Integer
Dim strMaterial As String
Dim blnDiscount As Boolean


    If strMaterial = "PVC" Then intCost = intCost + intSegments * 40
    If strMaterial = "Copper" Then intCost = intCost + intSegments * 50
    If strMaterial = "Stainless Steel" Then intCost = intCost + intSegments * 60
    If strMaterial = "Titanium" Then intCost = intCost + intSegments * 100



    If strMaterial = "PVC" Then
        intCost = intCost + intSegments * 40
    ElseIf strMaterial = "Copper" Then
        intCost = intCost + intSegments * 50
    ElseIf strMaterial = "Stainless Steel" Then
        intCost = intCost + intSegments * 60
    ElseIf strMaterial = "Titanium" Then
        intCost = intCost + intSegments * 100
    Else
        MsgBox "Material not recognized."
        Exit Sub
    End If



    Select Case strMaterial
        Case "PVC"
            intCost = intCost + intSegments * 40
        Case "Copper"
            intCost = intCost + intSegments * 50
        Case "Stainless steel"
            intCost = intCost + intSegments * 60
        Case "Titanium"
            intCost = intCost + intSegments * 100
        Case Else
            MsgBox "Material not recognized."
            Exit Sub
    End Select