problem med tal

Denne her virker:

k1 = Replace(Sizes, "Kommentar:", "*")
kommentarfind = Int(InStr(k1, "*"))
kommentarfind2 = kommentarfind + 1
komment1 = Mid(k1, kommentarfind2)

Denne her virker ikke:

k1 = Replace(Sizes, "Kommentar:", "*")
kommentarfind = Int(InStr(k1, "*"))
komment1 = Mid(k1, kommentarfind)

fejlen den giver er "invalid procedure call or argument"
lægger jeg hvilketsomhelst tal, til "kommentarfind" så virker det fint. Printer jeg resultatet af "kommentarfind" så skriver den også et rent tal. Nogle der har nogle ideer?