Need Some Help, Error Sub or Function not defined


Private Sub txtbUnitsPrice3_Change()

 Dim Ctrl As Control

     
    If Me.txtbUnitsPrice3 = "" And Not (IsNumueric(Me.txtbUnitsPrice3)) Then
    
    
    Me.txtbUnitsPrice3.Value = 0
    
        For Each Ctrl In Controls
            If TypeName(Ctrl) = "OptionButton" Then
                Select Case True
    
    
    
        
    Case Me.OPGST
    Me.txtGST.Value = (Val(Me.txtSubtotal.Value)) * 0.07
    
    
  
    Case Me.OBValueIncludedGST
    Me.txtGST.Value = (Val(Me.txtSubtotal.Value)) / 107 * 7
    Me.txtSubtotal.Value = (Val(Me.txtSubtotal.Value)) / 107 * 100
    
    
    Case Me.OBValueWithoutGST
    Me.txtGST.Value = "0"


 
 End Select
    
 End If
  
 Next
 
 End If
 
    
    
    
End Sub