Public Class WSInput
    Public VariableEins as String
    Public VariableZwei as Integer
    Public VariableZweiIsFilled as Boolean
End Class
 
Public Class WSResponse
    Public VariableEins as String
    Public VariableZwei as Integer
End Class

Private Function CreateNewInput(byRef lastResponse as WSResponse) as WSInput
Dim myInput as New WSInput
for each object in lastResponse
   'mir ist klar das das Folgende wohl nicht klappt, ich wäre schonmal mit 
   ' einem IENumerator, IENumerable zufrieden der mich das for each machen 
   ' lässt!!!
   myInput.object = lastResponse.object 
next
 
'Hier noch ein paar Anpassungen wie
myInput.VariableZwei = lastResponse.VariableZwei + 5
myInput.VariableZweiIsFilled = True
return myInput
End Function