Ja, luddig rubrik.

Jag vill ta bort dom fyra sista tecknena ur dlgFile.FileTitle och sen göra den första och nästsista bokstaven stor. T.ex dlgFile.FileTitle innehåller hejsanhoppsan.txt och det ska bli HejsanhoppsAn.

Hur gör jag detta?

variabel = mid(variabel,1,(len(variabel)-7)) + toupper(mid(variabel,(len(variabel)-7),1) + mid(variabel,1,(len(variabel)-5))

Kan funka, inte testat..

EDIT: Denna kod gör inte första tecknet stort

Variabel = "hejsanhoppsan.txt"
Variabel = UCase(Left(Variabel, 1)) & Mid(Variabel, 2, Len(Variabel) - 5)
Variabel = Left(Variabel, Len(Variabel) - 2) & UCase(Mid(Variabel, Len(Variabel) - 1, 1)) & Right(Variabel, 1)

Intressant tankegymnastik, så här gör jag.
<code>
Option Explicit
Private Sub Command1_Click()
MsgBox ConvertStr("hejsanhoppsan.txt")
End Sub

Private Function ConvertStr(ByVal StrIn As String) As String
'hejsanhoppsan.txt
Dim Ord1 As String, Ord2 As String, Ord3 As String
Ord2 = Right$(StrIn, 6)
Ord3 = StrConv(Left$(Ord2, 2), vbProperCase)
Ord1 = StrConv(Replace(StrIn, Ord2, ""), vbProperCase)
ConvertStr = Ord1 & Ord3
End Function
</code>
Anmärkning ordet du skickar måste vara >= 7 tecken långt

Nån som testat att koden funkar ?