Thanks to Sudhi
http://stackoverflow.com/users/2550066/sudhi[
^] from Stackoverflow he had great soultion
what instr does is find the location of a number and if it was greater than 0 it would triggered that result we needed
Private Sub result()
Dim points As Integer, result As String
Me.txtresult.Value = Val(cboImage.Value) & Val(cbofruit.Value) & Val(cboveg.Value) & Val(cboProcedure.Value) & Val(cboDescription.Value)
points = Val(Me.txtresult.Value)
If InStr(points, "3") > 0 Then
result = "Fail"
Else
If InStr(points, "2") > 0 Then
result = "Action"
Else
result = "Pass"
End If
End If
Me.txtresult.Value = result
End Sub