Functions in VB

Public Function addSlash(ByVal temp As String)
        If Microsoft.VisualBasic.Right(temp, 1) <> "\" Then
            Return temp & "\"
        Else
            Return temp
        End If
End Function


'VB6
Public Function addSlash(temp As String)
    If Right(temp, 1) <> "\" Then
        addSlash = (temp + "\")
    Else
        addSlash = temp
    End If
End Function