Fra decimal-værdi til hex-værdi…

Hej X-perter!

Har brug for lidt hjælp til noget kode i VB!

Jeg skal behandle data som kommer ind på COM1

Ud fra det input jeg får fra COM1 skal programmet udføre noget kode, og smide resultatet på COM2

Dataene fra COM1 kan antage værdier mellem 1-64
For eksempel ”P001M” ”P002M” ”P003M” ... ”P064M”

Strengen kontrolleres med følgende kode:

If Left(Temp, 2) = "P0" And (Mid(Temp, 5, 1) = "M") Then   
            K = Val(Mid(Temp, 3, 2))                             
            If K < 11 Then
                IO2.WriteString (Chr$(2) & "GC7:903000" & K - 1 & Chr$(3))
            End If

Når strengen fra COM1 er kontrolleret, skal der smides data til COM2 svarende til det tal som er fundet i strengen!

Det virker fint så længe værdierne ligger mellem 1-10, da de direkte kan indsættes i strenge som sendes videre til COM2

Når værdien ligger mellem 11-16 skal værdierne i stedet hedde A,B,C,D,E,F (altså hex-værdier!)
Fra 17 til 26 skal værdierne hedder 10,11,12,13 osv.
og jeg kan ikke længere direkte bruge det tal jeg fandt i strengen fra COM1...

Jeg kan godt løse det med end select case sætning:

Eksempel:
Select Case K
                Case Is = 11
                    IO2.WriteString (Chr$(2) & "GC7:903000A" & Chr$(3))
End Select

men der skal mange sætninger til, og det virker som lidt ”tung” kode.

Her ses samtlige 64 muligheder.
Problemet opstår ved værdierne 11-64

Streng:    Kode:        Streng:    Kode:
1    000        33    020
2    001        34    021
3    002        35    022
4    003        36    023
5    004        37    024
6    005        38    025
7    006        39    026
8    007        40    027
9    008        41    028
10    009        42    029
11    00A        43    02A
12    00B        44    02B
13    00C        45    02C
14    00D        46    02D
15    00E        47    02E
16    00F        48    02F
17    010        49    030
18    011        50    031
19    012        51    032
20    013        52    033
21    014        53    034
22    015        54    035
23    016        55    036
24    017        56    037
25    018        57    038
26    019        58    039
27    01A        59    03A
28    01B        60    03B
29    01C        61    03C
30    01D        62    03D
31    01E        63    03E
32    01F        64    03F

Er der en eller anden genial måde at gøre det på?