请帮忙转换一下

Question

Imports System
Imports System.Data
Imports System.Data.SqlClient
Namespace test
    _
   Public Class tt
      Inherits System.Web.UI.Page
      Protected str As String
      
      
      Public Sub New()
         str = ""
      End Sub 'New
      
      
      Public Function addstr() As String
         Dim temp As String = str + "-temp"
         Return temp
      End Function 'addstr
   End Class 'tt
End Namespace 'test
Dim t1 As New tt()
Dim str As String = t1.addstr()