Public Function CloseWindowFromTitle(ByVal WindowTitle As String) As Boolean
  Dim oProcessList As Process() = Process.GetProcesses
  Dim oProcess As Process
  Dim bResult As Boolean = False
 
  ' Porzesse der Reihe nach durchlaufen
  For Each oProcess In oProcessList
    With oProcess
      If .MainWindowTitle = TextBox1.Text Then
        oProcess.CloseMainWindow()
        bResult = True
        Exit For
      End If
    End With
  Next
  Return bResult
End Function

            AppActivate("Anpassung")
            Threading.Thread.Sleep(10000)
            SendKeys.Send("%{F4}")

            Process.GetProcessesByName("Anpassung")(0).Kill()

	Option Explicit
	Public shelly
 
	Set shelly = CreateObject("WScript.Shell")
 
	shelly.AppActivate ("Anpassung")
	shelly.SendKeys "%{F4}"