Sub nikai()
'
'
    Charts.Add
    ActiveChart.ChartType = xlXYScatterLines
    ActiveChart.SetSourceData Source:=Sheets("Sheet1").Range("E3")
    ActiveChart.SeriesCollection.NewSeries
    ActiveChart.SeriesCollection(1).XValues = "=Sheet1!R1C1:R50C1"
    ActiveChart.SeriesCollection(1).Values = "=Sheet1!R1C2:R50C2"
    ActiveChart.Location Where:=xlLocationAsObject, Name:="Sheet1"
End Sub

このVBAでつくったプログラムをVB.netで使えるようにしてくれませんか？