Imports System

Public Module Module1

    Public Sub Main()

        Console.WriteLine(TestFunction("10000"))

    End Sub

    Function TestFunction(Cuenta as String)

        Dim NombreCuenta() As String = {"FLETE_INTL","ADUANA","SEGURO","FLETE_NAL",

                                        "OTROS_GTOS","ALMAC_Y_ESTIB","HONORAR",

                                        "LICENCIAS","OTROS_IMP","ARANCEL"}

​

        Dim Unidades() As String = {"FLETE_INTL","ADUANA","SEGURO","FLETE_NAL",

                                    "OTROS_GTOS","ALMAC_Y_ESTIB","HONORAR","LICENCIAS",

                                    "OTROS_IMP","ARANCEL"}

        If Cuenta.StartsWith(NombreCuenta(0)) Then

            Return Unidades(0)

        ElseIf Cuenta.StartsWith(NombreCuenta(1)) Then

            Return Unidades(1)

        ElseIf Cuenta.StartsWith(NombreCuenta(2)) Then

            Return Unidades(2)

        ElseIf Cuenta.StartsWith(NombreCuenta(3)) Then

            Return Unidades(3)

        ElseIf Cuenta.StartsWith(NombreCuenta(4)) Then

            Return Unidades(4)

        ElseIf Cuenta.StartsWith(NombreCuenta(5)) Then

            Return Unidades(5)

        ElseIf Cuenta.StartsWith(NombreCuenta(6)) Then

            Return Unidades(6)

        ElseIf Cuenta.StartsWith(NombreCuenta(7)) Then

            Return Unidades(7)

        ElseIf Cuenta.StartsWith(NombreCuenta(8)) Then

            Return Unidades(8)

        ElseIf Cuenta.StartsWith(NombreCuenta(9)) Then

            Return Unidades(9)

        Else

            Return "Vacio"

        End If

                Return Nothing

        End Function

End Module