I'm trying to get these different types of repair types to return a value. So far, they all return a "0". Not exactly what I had hoped for. Anyone have any input? Thanks!!

Public Function TimeDays(REPAIR_TYPE As String) As Integer
'************************************************* ********************
' Function TimeDays returns a "1" for MINOR repairs, a "3" for MAJOR
' repairs and a "0" for repairs without a type code assigned.
'************************************************* ********************
Dim itg As Integer

If REPAIR_TYPE = "MINOR" Then
itg = 1
ElseIf REPAIR_TYPE = "MAJOR" Then
itg = 3
Else
itg = 0
itg = TimeDays
End If

End Function

Try...

Public Function TimeDays(REPAIR_TYPE As String) As Integer
'************************************************* ********************
' Function TimeDays returns a "1" for MINOR repairs, a "3" for MAJOR
' repairs and a "0" for repairs without a type code assigned.
'************************************************* ********************
Dim itg As Integer

Select Case REPAIR_TYPE
Case "MINOR"
itg = 1
Case "MAJOR"
itg = 3
Case Else
itg = 0
End select

TimeDays = itg
End Function

Great!! Thank you for your help!

You're welcome :)