Originariamente inviato da yyzyyz
Un'idea potrebbe essere questa :

codice:
Private Sub Command1_Click()
Call fileext(Text1.Text)
End Sub

Function fileext(nomefile As String) As String
Dim ext As String
Dim pos As String

len_string = Len(nomefile)
pos = InStr(1, nomefile, ".")
ext = Mid(nomefile, pos, len_string)
MsgBox ext
End Function
E' corretta, ma come ha fatto notare Sspintux è meglio effettuare la ricerca del punto partendo da destra. Questo perchè se un file ha 2 o + estensioni, quella che conta è l'ultima (l'icona viene rappresentata in base alla prima estensione, ma il programma viene associato in base all'ultima).
Quindi al posto di InStr conviene utilizzare InStrRev