Dim sDateiendung As String
    Dim Dateiname As String
 
    lngAnt = GetSaveFileName(lngOpenFileName)
    If (lngAnt) Then
      ' gewünschte Dateiendung
      sDateiendung = "pst"
      ' Prüfung des eingegebenen Dateinamens -->
      ' Dateiname wurde nur mit Punkt angegeben
      If InStr(1, .lpstrFileTitle, ".") > 0 Then
        ' Dateiname wurde mit korrekter Dateiendung angegeben
        If InStr(1, .lpstrFileTitle, "pst") Then
        Else
          DatLen = Len(Trim$(.lpstrFileTitle))
          ' Dateiname wurde mit unzulässiger Dateiendung angegeben
          If DatLen > InStr(1, .lpstrFileTitle, ".") + 1 Then
            ' Statt der MsgBox kann auch die Endung ab [InStr(1, 
            ' .lpstrFileTitle, ".")] abgeschnitten werden
            MsgBox "Unzulässige Dateiendung - Datei wird nicht gespeichert!"
          Else
            ' Dateiname hat bereits einen Punkt und braucht nur noch die 
            ' richtige Dateiendung
            Dateiname = Mid$(.lpstrFileTitle, 1, (DatLen - 1))
            .lpstrFileTitle = Dateiname & sDateiendung
          End If
        End If
      Else
        DatLen = Len(Trim$(.lpstrFileTitle))
        Dateiname = Mid$(.lpstrFileTitle, 1, (DatLen - 1))
        ' Dateiname hat noch keinen Punkt und braucht noch die richtige 
        ' Dateiendung
        .lpstrFileTitle = Dateiname & "." & sDateiendung
      End If
      ShowSaveDlg = .lpstrFileTitle
    End If
  End With
End Function