Hi. Here is the first and last line of your code...

> Function convertDiv(oDiv As String) As String
> End Sub

The last line should be "End Function"

Maybe another option?

Function ConvertDiv(oDiv As String) As String
If Len(oDiv) > 1 Then Exit Function
Select Case oDiv
Case "A" To "G"
ConvertDiv = Chr(Asc(oDiv) - 16)
End Select
End Function

--
HTH. :>)
Dana DeLouis
Windows XP, Office 2003


"shivboy" <[email protected]> wrote in
message news:[email protected]...
>
> Hi,
>
> I have a combo box with some values in it. Now, I want to make a
> function wherein I pass the value of the combo box as a string
> parameter and return a specific string value corresponding to the
> string parameter passed. I am able to pass the parametric value, but
> the value returned is "blank" or "null" instead of the string value
> that the function should be returning. Why is this happening? Below is
> the code that I am using for the function and how I am passing the
> value into it. Please help.
>
>
> Code:
> --------------------
>
> Function convertDiv(oDiv As String) As String
> Dim wDiv, oDivID As String
> wDiv = oDiv
> If wDiv = "A" Then
> oDivID = "1"
> ElseIf wDiv = "B" Then
> oDivID = "2"
> ElseIf wDiv = "C" Then
> oDivID = "3"
> ElseIf wDiv = "D" Then
> oDivID = "4"
> ElseIf wDiv = "E" Then
> oDivID = "5"
> ElseIf wDiv = "F" Then
> oDivID = "6"
> ElseIf wDiv = "G" Then
> oDivID = "7"
> End If
> convertDiv = oDivID
> End Sub
>
> --------------------
>
>
>
> Code:
> --------------------
>
> Sub init()
> Dim a As String
> a = convertDiv(Trim(combo1.Value))
> lblType.Caption = a
> End Sub
>
> --------------------
>
>
> Peace,
>
> Shivboy
>
>
> --
> shivboy
> ------------------------------------------------------------------------
> shivboy's Profile:
> http://www.excelforum.com/member.php...o&userid=35137
> View this thread: http://www.excelforum.com/showthread...hreadid=559197
>