Replace punktum

Hejsa,

har et sjovt problem, der ikke burde være et problem...men på mystisk vis er det.

Nedenstående kode udskifter bogstaver i en streng med gif-filer. Eksempelvis vil strengen "hej" blive erstattet af 3 gif-filer.

Men nu har jeg så en streng der indeholder et punktum. Og så vil den jo søge efter gif-filen "..gif" - har prøvet at tage højde for dette men det virker bare ikke. Den skriver stadig "..gif". Her er koden:

Public function Dims (tekst)
for i = 1 to len(tekst)
if mid(tekst,i,1) = " " then
    noget = "blank"
    bredde = "width='5'"
elseif mid(tekst,i,1) = "." then
    noget = "dot"
    bredde = ""
else
    noget = mid(tekst,i,1)
    bredde = ""
end if

str = str & "<img src='graphics/numbers/" & noget & ".gif' " & bredde & " border='0'>"

next
Dims = str
End Function
--------------

Nogen der har et foreslag?