Dim dtbl As New System.Data.DataTable
 
With dtbl
    .Columns.Add("Testspalte", GetType(String))
    .Columns(0).AllowDBNull = True  'Diese Spalte erlaubt fehlende Werte
    .Rows.Add("Finger weg")
    .Rows.Add("Suche mich")
    .Rows.Add("Hau ab")
    .Rows.Add(DBNull.Value)         'In dieser Zeile fehlt ein Wert
    .Rows.Add("Suche mich auch")
 
    Dim cellcontent As String
 
    For r As Integer = 0 To .Rows.Count - 1
        If Not IsDBNull(.Rows(r).Item("Testspalte")) Then
           cellcontent = DirectCast(.Rows(r).Item("Testspalte"), String)
           If cellcontent.StartsWith("Suche") Then
              cellcontent = Microsoft.VisualBasic.Replace _
              (cellcontent, "Suche", "Finde", 1, 1, CompareMethod.Text)
              .Rows(r).Item("Testspalte") = cellcontent
           End If
        End If
    Next r
End With