Function in VBA

Function in VBA einsetzen?
txtBoxB1.Text = wks.Cells(ComboBox1.ListIndex + 1, 40)
'If wks.Cells(ComboBox1.ListIndex + 1, 40) = "030" Then
If txtBoxB1.Text = wks.Cells(ComboBox1.ListIndex + 1, 40) Then
TextBox26.Text = BHZ
End If

Function BHZ(BHZCode As String) As String
Select Case BHZCode
Case "000"
BHZ1 = "NICHT ZUORDENBAR"
Case "010"
BHZ1 = "AERZTLICHE HILFE - KV"
Case "011"
BHZ1 = "AERZTLICHE HILFE - VERTRAGS-, WAHLÄRZTE"
Case "012"
BHZ1 = "AERZTLICHE HILFE - WAHlPSYCHOTHERAPEUTEN"
Case "013"
BHZ1 = "AERZTLICHE HILFE - KLINISCHE PSYCHOLOGEN"
Case "014"
BHZ1 = "AERZTLICHE HILFE - PHYSIKOTHERAPEUTEN"
Case "015"
BHZ1 = "AERZTLICHE HILFE - LOGOPÄDEN"
Case "016"
BHZ1 = "AERZTLICHE HILFE - SOZIALVERSICHERUNGSABKOMMEN"
Case "017"
BHZ1 = "AERZTLICHE HILFE - SONSTIGES"
Case "020"
BHZ1 = "HEILMITTEL OEFF.APOTH. - KV"
Case "030"
BHZ1 = "HEILBEHELFE - KV"
Case "040"
BHZ1 = "ZAHNBEHANDLUNG - KV"
Case "050"
BHZ1 = "ZAHNERSATZ - KV"
Case "060"
BHZ1 = "ANSTALTSPFLEGE - KV"
Case "070"
BHZ1 = "MEDIZ. HAUSKRANKENPFLEGE-KV"
Case "080"
BHZ1 = "KRANKENGELD - KV"
Case "090"
BHZ1 = "TAGGELD - KV"
Case "100"
BHZ1 = "WOCHENGELD (ZUSATZVERSICHERUNG-KV)"
Case "110"
BHZ1 = "ML ARZT-(HEBAMMEN-)HILFE-KV"
Case "120"
BHZ1 = "ML ANSTALTS-(ENTBINDUNGSH.)PFL.-KV"
Case "130"
BHZ1 = "ML SONSTIGE LEISTUNGEN - KV"
Case "140"
BHZ1 = "AERZTLICHE HILFE - PRO ORDINATIONE-KV"
Case "150"
BHZ1 = "ZUSCHUSS ZUR TEILZERITBEIHILFE"
Case "160"
BHZ1 = "VORSORGE (GES) UNTERSUCHUNG"
Case "170"
BHZ1 = "BESTATTUNGSKOSTENZUSCHUSS - KV"
Case "180"
BHZ1 = "FAHRTKOSTEN - KV"
Case "190"
BHZ1 = "ERSATZ MANUELLE HONARARABRECHNUNG"
Case "200"
BHZ1 = "VERPFLK.U.SONST.LEIST. AUVA-KRAF"
Case "210"
BHZ1 = "GF KOSTENZUSCHUSS FUER BETRIEBSHELFER"
Case "220"
BHZ1 = "VERTRAGSAERZTL.UNTERSUCHUNGEN - PV"
Case "230"
BHZ1 = "FAHRT-U.TRANSPORTKOSTEN - PV"
Case "240"
BHZ1 = "GF PFLEGE IN FREMD. ANSTALTEN-KV"
Case "250"
BHZ1 = "GF KURKOSTENBEITRAG-KV"
Case "260"
BHZ1 = "GF LANDAUFENTHALT - KV"
Case "270"
BHZ1 = "GF REISE- TRANSPORTKOSTEN - KV"
Case "280"
BHZ1 = "GV HEILVERFAHREN IN FREMD.ANST.-PV"
Case "290"
BHZ1 = "GV BEITRAG ZU KURAUFENTHALT - PV"
Case "300"
BHZ1 = "GV SONSTIGE LEISTUNGEN-PV"
Case "310"
BHZ1 = "REHABILITATION - PV"
Case "320"
BHZ1 = "BETRIEBSHILFE - WOCHENGELD"
Case "330"
BHZ1 = "GF U. SONST. MASSNAHMEN - KV"
Case "340"
BHZ1 = "TRANSPORTKOSTEN KV"
Case "350"
BHZ1 = "JUGENDLICHENUNTERSUCHUNG-KV"
Case "360"
BHZ1 = "AERZTL.HILFE AMBULANZ-KV"
Case "361"
BHZ1 = "AERZTL.HILFE AMBULANZ-KRANKENANSTALTEN"
Case "362"
BHZ1 = "AERZTL.HILFE AMBULANZ-SONSTIGE KRANKENANSTALTEN"
Case "370"
BHZ1 = "HEILMITTELHAUSAPOTHEKEN-KV"
Case "380"
BHZ1 = "ZAHNBEHANDLUNG AMBULANZ-KV"
Case "390"
BHZ1 = "ZAHNERSATZ AMBULANZ -KV"
Case "400"
BHZ1 = "ANSTALTSPFLEGE MEHRAUFW.SONDERKL.-KV"
Case "410"
BHZ1 = "ML ARZTHILFE AMBULANZ-KV"
Case "420"
BHZ1 = "ML ANSTALTSPFL.MEHRAUFW.SONDERKL.-KV"
Case "430"
BHZ1 = "BETRIEBSHILFE-TEILZEITBEIHILFE"
Case "440"
BHZ1 = "AERZTEHONORARE-RSKA AUGENKRANKHEITEN"
Case "450"
BHZ1 = "AERZTEHONORARE-RSKA CHIRURGIE"
Case "460"
BHZ1 = "AERZTEHONORARE-RSKA GYNAEKOLOGIE"
Case "470"
BHZ1 = "AERZTEHONORARE-RSKA HNO"
Case "480"
BHZ1 = "AERZTEHONORARE-RSKAHAUT-U.GESCHL.KR."
Case "490"
BHZ1 = "AERZTEHONORARE-RSKA INNERE MEDIZIN"
Case "500"
BHZ1 = "AERZTEHONORARE-RSKA LUNGENKRANKR."
Case "510"
BHZ1 = "AERZTEHONORARE-RSKA NEUROLOGIE"
Case "520"
BHZ1 = "AERZTEHONORARE-RSKA ORTHOPAEDIE"
Case "530"
BHZ1 = "AERZTEHONORARE-RSKA UROLOGIE"
Case "540"
BHZ1 = "AERZTEHONORARE-RSKA ZAHNMEDIZIN"
Case "550"
BHZ1 = "AERZTEHONORARE-RSKA AUSWAERT.UNTERS."
Case "560"
BHZ1 = "TRANSPORTKOSTEN-RSKAAUSWAERT.UNTERS."
Case "570"
BHZ1 = "AERZTEHONORARE-HKSKAAUGENKRANKHEITEN"
Case "580"
BHZ1 = "AERZTEHONORARE-HKSKA CHIRURGIE"
Case "590"
BHZ1 = "AERZTEHONORARE-HKSKA GYNAEKOLOGIE"
Case "600"
BHZ1 = "AERZTEHONORARE-HKSKA HNO"
Case "610"
BHZ1 = "AERZTEHONOR. -HKSKAHAUT-U.GESCHL.KR."
Case "620"
BHZ1 = "AERZTEHONORARE-HKSKA INNERE MEDIZIN"
Case "630"
BHZ1 = "AERZTEHONORARE-HKSKA LUNGENKRANKR."
Case "640"
BHZ1 = "AERZTEHONORARE-HKSKA NEUROLOGIE"
Case "650"
BHZ1 = "AERZTEHONORARE-HKSKA ORTHOPAEDIE"
Case "660"
BHZ1 = "AERZTEHONORARE-HKSKA UROLOGIE"
Case "670"
BHZ1 = "AERZTEHONORARE-HKSKA ZAHNMEDIZIN"
Case "680"
BHZ1 = "AERZTEHONOR.  -HKSKAAUSWAERT.UNTERS."
Case "690"
BHZ1 = "TRANSPORTKOST.-HKSKAAUSWAERT.UNTERS."
Case "700"
BHZ1 = "AERZTEHONORARE-SKAGRAUGENKRANKHEITEN"
Case "710"
BHZ1 = "AERZTEHONORARE-SKAGR CHIRURGIE"
Case "720"
BHZ1 = "AERZTEHONORARE-SKAGR GYNAEKOLOGIE"
Case "730"
BHZ1 = "AERZTEHONORARE-SKAGR HNO"
Case "740"
BHZ1 = "AERZTEHONOR. -SKAGRHAUT-U.GESCHL.KR."
Case "750"
BHZ1 = "AERZTEHONORARE-SKAGR INNERE MEDIZIN"
Case "760"
BHZ1 = "AERZTEHONORARE-SKAGR LUNGENKRANKR."
Case "770"
BHZ1 = "AERZTEHONORARE-SKAGR NEUROLOGIE"
Case "780"
BHZ1 = "AERZTEHONORARE-SKAGR ORTHOPAEDIE"
Case "790"
BHZ1 = "AERZTEHONORARE-SKAGR UROLOGIE"
Case "800"
BHZ1 = "AERZTEHONORARE-SKAGR ZAHNMEDIZIN"
Case "810"
BHZ1 = "AERZTEHONOR.  -SKAGRAUSWAERT.UNTERS."
Case "820"
BHZ1 = "TRANSPORTKOST.-SKAGRAUSWAERT.UNTERS."
Case "830"
BHZ1 = "REHAB.-KVAERZTLICHE HILFE"
Case "840"
BHZ1 = "REHAB.-KVHEILMITTEL"
Case "850"
BHZ1 = "REHAB.-KVHEILBEHELFE"
Case "860"
BHZ1 = "REHAB.-KVREHABILITATION"
Case "870"
BHZ1 = "REHAB.-KVREISE- UND TRANSPORTKOSTEN"
Case "880"
BHZ1 = "VERTRAGSAERZTL.UNTERSUCHUNGEN - BPGG"
Case "890"
BHZ1 = "U-FONDS KRANKENBEHANDLUNG-KV"
Case "900"
BHZ1 = "U-FONDS-ZAHNBEH.-ZAHNERSATZ-KV"
Case "910"
BHZ1 = "U-FONDS ANSTALTS-U.HAUSPFLEGE-KV"
Case "920"
BHZ1 = "U-FONDS-MUTTERSCHAFTSLEISTUNGEN-KV"
Case "930"
BHZ1 = "U-FONDS-BESTATTUNGSKOSTEN-KV"
Case "940"
BHZ1 = "U-FONDS-FAHRTKOSTEN-KV"
Case "950"
BHZ1 = "U-FONDS-ZUSATZVERSICHERUNG-KV"
Case "960"
BHZ1 = "U-FONDS- SONSTIGE-KV"
Case "970"
BHZ1 = "U-FONDS-ERKRANKUNG- PV"
Case "980"
BHZ1 = "U-FONDS-TODESFALL - PV"
Case "990"
BHZ1 = "U-FONDS-SONSTIGE -PV"
End Select
End Function



Danke

josef