Public Class Form1
  Private Sub Button1_Click( sender As System.Object,  e As System.EventArgs) _
    Handles Button1.Click
    Dim fso As Object = CreateObject("Scripting.FileSystemObject")
    Dim fFile As Object = fso.GetFile("C:\...\....JPG")
 
    tb1.Text = "Aufnahmedatum:    " ' & ??????????  Ursprung, Aufnahmedatum 
    ' ???????????
    tb2.Text = "Erstellungsdatum: " & DateTime.Parse(fFile.DateCreated)
    tb3.Text = "Änderungsdatum:   " & DateTime.Parse(fFile.DateLastModified)
  End Sub
End Class