I hope the problem is because you didn't specified a starting value for the row position
try this
Dim RowPosition as integer = 0
If dt.Rows.Count > 0 Then
MsgBox(dt.Rows(RowPostion)(0).ToString)
MsgBox(dt.Rows(RowPostion )(1).ToString)
dt.Rows.RemoveAt(RowPostion)
End If
(First check the value of data row count and Row position then try to set the value of Row position one step back to its original position, if the RowPosition is starting with 1)